home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / game / role / CTW10d.lha / CTW / scripts / Important / nancy.script < prev    next >
Text File  |  1997-09-02  |  1KB  |  60 lines
  1. SET @WALKLOOP 0|
  2. :LOOP|
  3. IF @WALKLOOP = 1 PT2|
  4. WALKTO 263 104 2 @THERE|
  5. IF @THERE CHDIR|
  6. GOTO LOOP|
  7. :PT2|
  8. WALKTO 434 105 2 @THERE|
  9. IF @THERE CHDIR|
  10. GOTO LOOP|
  11. :CHDIR|
  12. MATH @WALKLOOP + 1|
  13. MATH @WALKLOOP % 2|
  14. GOTO LOOP|
  15.  
  16. :TOUCH|
  17. GLOGET 1 @JUDYVAR|
  18.  
  19. IF @JUDYVAR = 0 FIRSTHELLO|
  20. IF @JUDYVAR = 1 GETBAQDISK|
  21. IF @JUDYVAR = 2 GIVETOJUDY|
  22. IF @JUDYVAR < 4 RECOMMEND|
  23.  
  24. :FIRSTHELLO|
  25. [ "Nancy: Hello there, %n."|
  26. [ "Come in for another fun day of"|
  27. [ "number crunching?"|
  28. [ "%n: Oh yeah.  I can't wait."|
  29. [ "Say, have you seen my ID Card?"|
  30. [ "The new guy in the mail room"|
  31. [ "has been hassling me over"|
  32. [ "not showing him one."|
  33. [ "Nancy: Sorry, I haven't seen"|
  34. [ "it.  You could have IS"|
  35. [ "make you a new one, but they're"|
  36. [ "busy with their computer stuff."|
  37. [ "%n: All right.  Thanks."|
  38. GOTO LOOP|
  39.  
  40. :GETBAQDISK|
  41. [ "Nancy: You said Judy was looking"|
  42. [ "for her Baq Disk?  I found it"|
  43. [ "right here, on her usual"|
  44. [ "table.  I swear, that girl"|
  45. [ "would lose her head if it wasn't"|
  46. [ "securely fastened to her neck!"|
  47. ADDITEM JudyBaq|
  48. SET @JUDYVAR 2|
  49. GLOSET 1 @JUDYVAR|
  50. GOTO LOOP|
  51.  
  52. :GIVETOJUDY|
  53. [ "Nancy: Well, hurry up and give"|
  54. [ "Judy her disk!  She needs it for"|
  55. [ "that lunch meeting of hers!"|
  56. GOTO LOOP|
  57.  
  58. :RECOMMEND|
  59. GOTO LOOP|
  60.